home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / HARFLER.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-10-11  |  490 b   |  22 lines
  1. 'Bu program küçük ve büyük harfleri tersine dönüƒtürür
  2.  
  3. DECLARE FUNCTION Harfler$ (Harfler$)
  4.  
  5. CLS
  6. Kelime$ = "pROGRAMLAMA tEKNÿKLERÿ..."
  7.  
  8. FOR I = 1 TO LEN(Kelime$)
  9.     PRINT Harfler$(MID$(Kelime$, I, 1));
  10. NEXT
  11.  
  12. FUNCTION Harfler$ (A$)
  13.  Harfler$ = A$
  14.  Yer = INSTR("QWERTYUIOPªÜASDFGHJKL₧ÿZXCVBNMÖÇqwertyuìopºüasdfghjklƒizxcvbnmöç", A$)
  15.  
  16.  IF Yer > 0 THEN
  17.    Harfler$ = MID$("qwertyuìopºüasdfghjklƒizxcvbnmöçQWERTYUIOPªÜASDFGHJKL₧ÿZXCVBNMÖÇ", Yer, 1)
  18.  END IF
  19.  
  20. END FUNCTION
  21.  
  22.